hallo tscharl,
Private Sub Button_Löschen_Click()
> UserForm_Activate 'Initialize 'beim Button Löschen hatte ich erst user form Initialize stehen
SucheFormular.Datum.Value = Date
End Sub
hierbei hatte er mir aber nach dem ich diesen Code eingegeben hatte nach dem löschen überall ein Fragezeichen gesetzt gehabt ( beim löschen sollen ja alle Felder wieder so sein als wenn ich die UserForm gerade gestartet hätte), nach dem ich im oberen Code UserForm_Activate genommen habe ist dies der Fall.
Private Sub UserForm_Initialize()
strWeiterSo = "Mach weiter so, dann schaffst du die Bahnen unter 18."
strFehler = "Du hast nur 6 Schläge!"
strHinweis = "Bitte gültigen Wert eingeben."
Dim n As Integer
For n = 1 To 18
Me.Controls("Bahn" & n).Text = "?"
Next n
TextBox1.Text = 0
TextBox2.Text = 0
TextBox3.Text = 0
MultiPage1.Value = 0
SucheFormular.Datum.Value = Date
End Sub
Wenn ich eine Textbox Überspringe, springt er nach meldung "geben sie einen gültigen wert ein" direkt in die nächste textbox ohne das fragezeichen zu setzen.
Ich denke das deswegen die prüfung nicht funktioniert.
Gruß Chrimaet
|